home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 7 / Amoszine 7 (Disk 2 of 3).adf / ARCHIVES / Mals_Source_Code.lha / mals_source / SIMPLE_WIPE.amos / SIMPLE_WIPE.amosSourceCode
AMOS Source Code  |  1995-04-12  |  912b  |  62 lines
  1. '************************************* 
  2. '
  3. '        SIMPLE SCREEN WIPE
  4. '        ------------------
  5. '
  6. '      BY MALCOLM LAVERY 1995
  7. '
  8. '************************************* 
  9. '
  10. 'JUST CALL THIS PROC AND THE CURRENT SCREEN
  11. 'WILL BE CLEARED.
  12. '
  13. '
  14. Screen Open 0,320,256,8,Lowres
  15. Curs Off : Flash Off : Hide On : Cls 4
  16. '
  17. Wait 100
  18. '
  19. _WIPE_1
  20. '
  21. Procedure _WIPE_1
  22.    '
  23.    '************ OUT **************** 
  24.    '
  25.    WX1=165
  26.    WY1=128
  27.    WX2=166
  28.    WY2=129
  29.    '
  30.    Repeat 
  31.       '
  32.       Ink 0
  33.       Box WX1,WY1 To WX2,WY2
  34.       '
  35.       Add WX1,-2
  36.       Add WY1,-2
  37.       Add WX2,2
  38.       Add WY2,2
  39.       '
  40.    Until WX1<-20
  41.    '
  42.    '******************* IN ******************** 
  43.    '
  44.    WX1=WX1+1
  45.    WY1=WY1+1
  46.    WX2=WX2-1
  47.    WY2=WY2-1
  48.    '
  49.    Repeat 
  50.       '
  51.       Ink 0
  52.       Box WX1,WY1 To WX2,WY2
  53.       
  54.       '
  55.       Add WX1,2
  56.       Add WY1,2
  57.       Add WX2,-2
  58.       Add WY2,-2
  59.       '
  60.    Until WX1>165
  61.       Wait 10
  62. End Proc